This is an R Markdown Notebook. When you execute code within the notebook, the results appear beneath the code.

Try executing this chunk by clicking the Run button within the chunk or by placing your cursor inside it and pressing Ctrl+Shift+Enter.

library(ggplot2)
library(plotly)
package 㤼㸱plotly㤼㸲 was built under R version 4.0.4Registered S3 method overwritten by 'data.table':
  method           from
  print.data.table     
Registered S3 methods overwritten by 'htmltools':
  method               from         
  print.html           tools:rstudio
  print.shiny.tag      tools:rstudio
  print.shiny.tag.list tools:rstudio
Registered S3 method overwritten by 'htmlwidgets':
  method           from         
  print.htmlwidget tools:rstudio

Attaching package: 㤼㸱plotly㤼㸲

The following object is masked from 㤼㸱package:ggplot2㤼㸲:

    last_plot

The following object is masked from 㤼㸱package:stats㤼㸲:

    filter

The following object is masked from 㤼㸱package:graphics㤼㸲:

    layout
source("./DataProccess.R")
Registered S3 methods overwritten by 'dbplyr':
  method         from
  print.tbl_lazy     
  print.tbl_sql      
-- Attaching packages -------------------------------------------------------------------------------------------------------------- tidyverse 1.3.0 --
v tibble  3.0.5     v dplyr   1.0.3
v tidyr   1.1.2     v stringr 1.4.0
v readr   1.4.0     v forcats 0.5.0
v purrr   0.3.4     
-- Conflicts ----------------------------------------------------------------------------------------------------------------- tidyverse_conflicts() --
x dplyr::filter() masks plotly::filter(), stats::filter()
x dplyr::lag()    masks stats::lag()

Attaching package: 㤼㸱zoo㤼㸲

The following objects are masked from 㤼㸱package:base㤼㸲:

    as.Date, as.Date.numeric

Loading required package: ggstance

Attaching package: 㤼㸱ggstance㤼㸲

The following objects are masked from 㤼㸱package:ggplot2㤼㸲:

    geom_errorbarh, GeomErrorbarh

Loading required package: scales

Attaching package: 㤼㸱scales㤼㸲

The following object is masked from 㤼㸱package:purrr㤼㸲:

    discard

The following object is masked from 㤼㸱package:readr㤼㸲:

    col_factor

Loading required package: ggridges

New to ggformula?  Try the tutorials: 
    learnr::run_tutorial("introduction", package = "ggformula")
    learnr::run_tutorial("refining", package = "ggformula")

Attaching package: 㤼㸱lubridate㤼㸲

The following objects are masked from 㤼㸱package:base㤼㸲:

    date, intersect, setdiff, union
HFGData="../data/HFG data for stats preliminary 3-18-21.xlsx"

HFGFrame=HFGInfo(HFGData)%>%
  mutate("Filter Rep"=as.character(`Filter Rep`),`Well Rep`=as.character(`Well Rep`))
New names:
* `` -> ...2
HFGFrame.mean=HFGFrame%>%
  ungroup()%>%
  group_by(Date,`Filter Rep`,Plant)%>%
  summarise(N1GC=mean(N1GC))%>%
  ungroup()%>%
  filter(N1GC<10000000)
`summarise()` has grouped output by 'Date', 'Filter Rep'. You can override using the `.groups` argument.
HFGFrame.Filtered=HFGFrame%>%
  filter(N1GC<100000000)%>%
  filter(!is.na(N1GC),!is.na(Date))


HFGDFrame=HFGFrame.Filtered

p=ggplot()+
geom_jitter(data=HFGDFrame,aes(x=Date, y=N1GC , color=`Filter Rep`,text=Plant),size=1, position = position_jitter(width = .1, height = 0))+
  geom_smooth(data=HFGFrame.mean,aes(x=Date,y=N1GC, color=`Filter Rep`),se=F)
Ignoring unknown aesthetics: text
ggplotly(p,tooltip = c("text", "size"))
`geom_smooth()` using method = 'loess' and formula 'y ~ x'
LS0tDQp0aXRsZTogIlIgTm90ZWJvb2siDQpvdXRwdXQ6IGh0bWxfbm90ZWJvb2sNCi0tLQ0KDQpUaGlzIGlzIGFuIFtSIE1hcmtkb3duXShodHRwOi8vcm1hcmtkb3duLnJzdHVkaW8uY29tKSBOb3RlYm9vay4gV2hlbiB5b3UgZXhlY3V0ZSBjb2RlIHdpdGhpbiB0aGUgbm90ZWJvb2ssIHRoZSByZXN1bHRzIGFwcGVhciBiZW5lYXRoIHRoZSBjb2RlLiANCg0KVHJ5IGV4ZWN1dGluZyB0aGlzIGNodW5rIGJ5IGNsaWNraW5nIHRoZSAqUnVuKiBidXR0b24gd2l0aGluIHRoZSBjaHVuayBvciBieSBwbGFjaW5nIHlvdXIgY3Vyc29yIGluc2lkZSBpdCBhbmQgcHJlc3NpbmcgKkN0cmwrU2hpZnQrRW50ZXIqLiANCg0KYGBge3J9DQpsaWJyYXJ5KGdncGxvdDIpDQpsaWJyYXJ5KHBsb3RseSkNCnNvdXJjZSgiLi9EYXRhUHJvY2Nlc3MuUiIpDQoNCkhGR0RhdGE9Ii4uL2RhdGEvSEZHIGRhdGEgZm9yIHN0YXRzIHByZWxpbWluYXJ5IDMtMTgtMjEueGxzeCINCg0KSEZHRnJhbWU9SEZHSW5mbyhIRkdEYXRhKSU+JQ0KICBtdXRhdGUoIkZpbHRlciBSZXAiPWFzLmNoYXJhY3RlcihgRmlsdGVyIFJlcGApLGBXZWxsIFJlcGA9YXMuY2hhcmFjdGVyKGBXZWxsIFJlcGApKQ0KSEZHRnJhbWUubWVhbj1IRkdGcmFtZSU+JQ0KICB1bmdyb3VwKCklPiUNCiAgZ3JvdXBfYnkoRGF0ZSxgRmlsdGVyIFJlcGAsUGxhbnQpJT4lDQogIHN1bW1hcmlzZShOMUdDPW1lYW4oTjFHQykpJT4lDQogIHVuZ3JvdXAoKSU+JQ0KICBmaWx0ZXIoTjFHQzwxMDAwMDAwMCkNCg0KDQpIRkdGcmFtZS5GaWx0ZXJlZD1IRkdGcmFtZSU+JQ0KICBmaWx0ZXIoTjFHQzwxMDAwMDAwMDApJT4lDQogIGZpbHRlcighaXMubmEoTjFHQyksIWlzLm5hKERhdGUpKQ0KDQoNCkhGR0RGcmFtZT1IRkdGcmFtZS5GaWx0ZXJlZA0KDQpwPWdncGxvdCgpKw0KZ2VvbV9qaXR0ZXIoZGF0YT1IRkdERnJhbWUsYWVzKHg9RGF0ZSwgeT1OMUdDICwgY29sb3I9YEZpbHRlciBSZXBgLHRleHQ9UGxhbnQpLHNpemU9MSwgcG9zaXRpb24gPSBwb3NpdGlvbl9qaXR0ZXIod2lkdGggPSAuMSwgaGVpZ2h0ID0gMCkpKw0KICBnZW9tX3Ntb290aChkYXRhPUhGR0ZyYW1lLm1lYW4sYWVzKHg9RGF0ZSx5PU4xR0MsIGNvbG9yPWBGaWx0ZXIgUmVwYCksc2U9RikNCg0KDQpnZ3Bsb3RseShwLHRvb2x0aXAgPSBjKCJ0ZXh0IiwgInNpemUiKSkNCmBgYA0KDQoNCmBgYHtyfQ0KSml0dGVyX1BPU0lYbHQgPSBmdW5jdGlvbiAoeCwgZmFjdG9yID0gMSwgYW1vdW50ID0gODY0MDAvNCkgDQp7DQogICAgaWYgKGxlbmd0aCh4KSA9PSAwTCkgDQogICAgICAgIHJldHVybih4KQ0KICAgIGlmICghaXMuUE9TSVhsdCh4KSkgDQogICAgICAgIHN0b3AoIid4JyBtdXN0IGJlIERhdGUiKQ0KICAgIHggKyBzdGF0czo6cnVuaWYobGVuZ3RoKHgpLCAtYW1vdW50LCBhbW91bnQpDQp9DQoNCg0KDQoNCiNEYXRhIG5lZWRzIHRvIGJlIHNvcnRlZCBieSBjYXRlZ29yeSBiZWluZyBmaWx0ZXJlZA0KSEZHREZyYW1lMiA8LSBIRkdERnJhbWVbb3JkZXIoSEZHREZyYW1lJGBGaWx0ZXIgUmVwYCksIF0NCg0KUGxhbnRzPXVuaXF1ZShIRkdERnJhbWUkUGxhbnQpDQoNCmJ1dHRvbiA9IGxpc3QoKQ0KYnV0dG9uW1sxXV0gPSBsaXN0KG1ldGhvZCA9ICJyZXN0eWxlIiwNCiAgICAgICAgICAgICAgIGFyZ3MgPSBsaXN0KCJ0cmFuc2Zvcm1zWzBdLnZhbHVlIiwgdW5pcXVlKEhGR0RGcmFtZSRQbGFudCkpLA0KICAgICAgICAgICAgICAgbGFiZWwgPSB1bmlxdWUoIkFsbCIpKQ0KDQoNCmZvciAoaSBpbiAyOmxlbmd0aChQbGFudHMpKXsNCiAgYnV0dG9uW1tpXV09bGlzdChtZXRob2QgPSAicmVzdHlsZSIsDQogICAgICAgICAgICAgICBhcmdzID0gbGlzdCgidHJhbnNmb3Jtc1swXS52YWx1ZSIsIHVuaXF1ZShIRkdERnJhbWUkUGxhbnQpW2ldKSwNCiAgICAgICAgICAgICAgIGxhYmVsID0gdW5pcXVlKEhGR0RGcmFtZSRQbGFudClbaV0pDQp9DQpmaWcgPC1IRkdERnJhbWUlPiUNCiAgcGxvdF9seSgNCiAgeCA9IEppdHRlcl9QT1NJWGx0KGFzLlBPU0lYbHQoSEZHREZyYW1lJERhdGUpKSwNCiAgdGV4dCA9IH5gUGxhbnRgLA0KICBob3ZlcmluZm8gPSAndGV4dCcsDQogIHRyYW5zZm9ybXMgPSBsaXN0KA0KICAgICAgbGlzdCgNCiAgICAgICAgdHlwZSA9ICdmaWx0ZXInLA0KICAgICAgICB0YXJnZXQgPSBIRkdERnJhbWUyJFBsYW50LA0KICAgICAgICBvcGVyYXRpb24gPSAnaW4nLA0KICAgICAgICB2YWx1ZSA9IHVuaXF1ZShIRkdERnJhbWUkUGxhbnQpWzFdDQogICAgICApDQogICAgKQ0KKSU+JQ0KICAgYWRkX3RyYWNlKHR5cGUgPSAnc2NhdHRlcicsDQogICAgICAgICAgICAgIHkgPSB+TjFHQywNCiAgICAgICAgICAgICBjb2xvciA9IH5gRmlsdGVyIFJlcGAsDQogICAgICAgICAgICAgbW9kZSA9ICdtYXJrZXJzJykgJT4lDQogIGFkZF9saW5lcyh5ID0gZml0dGVkKGxvZXNzKE4xR0MgfiBhcy5udW1lcmljKERhdGUpLGRhdGE9SEZHREZyYW1lKSksDQogICAgICAgICAgICBsaW5lID0gbGlzdChjb2xvciA9ICcjMDdBNEI1JykpJT4lDQogIGxheW91dCgNCiAgICB1cGRhdGVtZW51cyA9IGxpc3QoDQogICAgICBsaXN0KA0KICAgICAgICB0eXBlID0gJ2Ryb3Bkb3duJywNCiAgICAgICAgYWN0aXZlID0gMCwNCiAgICAgICAgYnV0dG9ucyA9IGJ1dHRvbg0KICAgICAgKQ0KICAgICkNCiAgKQ0KZmlnDQoNCmBgYA0KDQo=